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SQL> cl scr 



SQL> SET SERVEROUTPUT ON 
SQL> cl scr 

SQL> DECLARE 

2 V_DeptNo Dept . Deptno%TYPE := SDeptNumber; 

3 V_DeptName Dept . Dname%TYPE := '&DeptName'; 

4 V_DeptLoc Dept . Loc%TYPE := ' &DeptLocation ' 

5 E_InvalidDept EXCEPTION; 

6 BEGIN 

7 UPDATE Dept 

8 SET Dname = V_DeptName, 

9 Loc = V_DeptLoc 

10 WHERE Deptno = V_DeptNo; 

11 IF SQL%NOTFOUND THEN 

12 DBMS_OUTPUT.PUT_LINE ( 'Sorry! Department 
Found ' ) ; 

13 END IF; 

14 END; 

15 / 

Enter value 
Enter value 
Enter value 



for 

for 

for 



deptnumber: 40 
deptname : SHIPPING 
deptlocation : CHENNAI 

PL/SQL procedure successfully casmected. 

SQL> SELECT * FROM Dept; .. +l tf 

Vv 

DEPTNO DNAME + J+LO^ 






Deptno | | ' Not 



ACCOUNT 

RESEARC 

SALES* 




) 



JEW YORK 
DALLAS 
CHICAGO 
CHENNAI 



10 
20 
30 

40 shirpAig 

DECLAREtf 1 * 

V D ept No^tfept .Deptno%TYPE : = SDeptNumber; 

^ E^jj^.Name Dept . Dname%TYPE := ' SDeptName ' ; 

liftoc Dept . Loc%TYPE : = ' SDeptLocation ' ; 
LE_lllvalidDept EXCEPTION; 




i%WlN 



4* O’ PDATE 



Dept 

8 SET Dname = V_DeptName, 
* Loc = V_DeptLoc 









10 WHERE Deptno = V_DeptNo; 

11 IF SQL%NOTFOUND THEN 
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12 DBMS_OUTPUT.PUT_LINE ( 'Sorry! Department Number ' | |V. 
Found ' ) ; 

13 END IF; 

14 END; 

15 / 

Enter value for deptnumber: 70 
Enter value for deptname : CARGO 
Enter value for deptlocation : DELHI 
Sorry! Department Number 70 Not Found 

PL/SQL procedure successfully completed. 



_Deptno I I ' Not 



SQL> ED 
Wrote file 



af iedt . buf 



1 DECLARE 

2 V_DeptNo Dept . Deptno%TYPE := &DeptNumber 

3 V_DeptName Dept . Dname%TYPE := ' &DeptName 

4 V_DeptLoc Dept . Loc%TYPE := ' &DeptLoca 

5 E_InvalidDept EXCEPTION; 

6 BEGIN 

7 UPDATE Dept 

8 SET Dname = V_DeptName, 

9 Loc = V_DeptLoc 
WHERE Deptno = V_DeptNo; 

IF SQL%NOTFOUND THEN 
RAISE E_InvalidDept ; ♦ r 

END IF; *. ,t> *+1 iT 

EXCEPTION 




WHEN E_InvalidDept ^E^V 
DBMS_OUTPUT . PUT L^feJVg^rry ! 



10 
11 
12 

13 

14 

15 

16 

Found ' ) ; 

17* END; 

SQ L> / 4 

Enter value foj^. outnumber : 8 0 
Enter va 1 uej 4 1 A^^ flwptname : COURIER 
Enter value'*i^rl!de^tlocation : MUMBAI 
Sorry ! Departmrfit Number 8 0 Not Found 




Of 



Department Number ' | |V_Deptno| | ' Not 



/SO l^redure successfully completed. 




LBACK; 



ack complete. 
3QL> ED 

Wrote file afiedt.buf 
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:= ' &DeptLocation ' 



1 DECLARE 

2 V_DeptNo Dept . Deptno%TYPE := SDeptNumber; 

3 V_DeptName Dept . Dname%TYPE := 'SDeptName' 

4 V_DeptLoc Dept . Loc%TYPE 

5 E_InvalidDept EXCEPTION; 

6 BEGIN 

7 UPDATE Dept 

8 SET Dname = V_DeptName, 

9 Loc = V_DeptLoc 

10 WHERE Deptno = V_DeptNo; 

11 IF SQL%NOTFOUND THEN 

12 RAISE E_InvalidDept; 

13 ELSE 

14 DBMS_OUTPUT.PUT_LINE (SQL%ROWCOUNT | | 

15 END IF; 

16 EXCEPTION 

17 WHEN E_InvalidDept THEN 

18 DBMS_OUTPUT.PUT_LINE ( 'Sorry! 

Found ' ) ; 

19* END; 

SQL> / 

Enter value for deptnumber: 40 
Enter value for deptname : CARGO 
Enter value for deptlocation : MUMBAI 
1 Record Updated 




Record Updated' 



Department 



I | V_Deptno | | 



X 



SQL> / 

Enter value for 
Enter value for 
Enter value for 
Sorry! Department 



PL/SQL procedure successfully d^jip|Leted. 

\ 

deptnumblC: 1^) 
deptna^f^K ie£jRIER 
dei^ElocCtJ^r 



60 



n: DELHI 
Not Found 



PL/SQL pro cedm ^u ccess fully completed. 






SQL> ROLLBAI 

'V 

Rollkmcld dbmplete 
SQL>|ED , + 4 



1 



o 



W^ttte'+Mle af iedt . buf 
"^DECLARE 

V_DeptNo Dept . Deptno%TYPE := &DeptNumber; 

3 V_DeptName Dept . Dname%TYPE := 'SDeptName'; 

4 V_DeptLoc Dept . Loc%TYPE := ' SDeptLocation ' 

5 E_InvalidDept EXCEPTION; 
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6 E_ValidDept EXCEPTION; 

7 BEGIN 

8 UPDATE Dept 

9 SET Dname = V_DeptName, 

10 Loc = V_DeptLoc 

11 WHERE Deptno = V_DeptNo; 

12 IF SQL%NOTFOUND THEN 

13 RAISE E_InvalidDept; 

14 ELSE 

15 RAISE E_ValidDept; 

16 END IF; 

17 EXCEPTION 

18 WHEN E_InvalidDept THEN 

19 DBMS_OUTPUT . PUT_LINE ( ' Sorry ! Department Number 4 
Found' ) ; 

20 WHEN E_ValidDept THEN 

21 DBMS_OUTPUT.PUT_LINE (SQL%ROWCOUNT M ' Record 
22* END; 

SQL> / 

Enter value for deptnumber: 40 
Enter value for deptname : COURIER 
Enter value for deptlocation : DELHI 
1 Record Updated 

PL/SQL procedure successfully cdta^!M.ed. 

SQL> / ♦ + 

Enter value for deptnumber: ,|9 0++ rr 
Enter value for deptname; 0^.R0^ J 
Enter value for dept localll^ irk* MUMBAI 
Sorry! Department Numb^^k9(Swot Found 




I |V_ 



•+, 




Dtno | | ' Not 



ed' ) ; 



PL/SQL procedure s 



SQL> ROLLBACK; , \ 

Rollback conMefc. * 

..j’ 




:ully completed. 



SQL> «L 



O 



SQLPISEMCT MGR, COUNT (* ) Staff 
Emp 



*■ | p fHERE MGR IS NOT NULL 
4^ GROUP BY MGR; 



MGR 



STAFF 



7839 
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7782 1 

7698 5 

7902 1 

7566 2 

7788 1 

6 rows selected. 

SQL> cl scr 

SQL> DECLARE 

2 V_Ename Emp . Ename%TYPE; 

3 V_Job Emp . Job%TYPE ; 

4 E_ManyEmployees EXCEPTION; 

5 CURSOR EmpCursor 

6 IS 

7 SELECT MGR, COUNT (*) Tot_Emp 

8 FROM Emp 

9 WHERE MGR IS NOT NULL 
GROUP BY MGR; 

BEGIN 

FOR MgrRecord IN EmpCursor 
LOOP 
BEGIN 

SELECT Ename, Job INTO V 
FROM Emp j, 

WHERE Empno = MgrRecort^^^JS^ti 
IF MgrRecord . Tot Emu > i 
RAISE E_ManyEmployee^. J 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 




ELSE 



V 



DBMS_OUTPUT . PUT 

| | MgrRecord . Tot_Enp| ' feJlbloyees . ' ) 

2 2 END IF; *1 i 

23 EXCEPTION 

2 4 WHEN E_Ma. ployees THEN 

UT_LINE ( 'Employee, 



2 5 DBMS. 

Employees, 
Allowanc 
2 6 %E' 



27 




rfStE'r^mployee, ' | |V_Ename| | ' Manages 



| |V_EName| | ' Manages Many 



decreasing his 
oluments . ' ) ; 



Performance, Recommend for Extra 



Cj 



28 IE NOT 

S j fla free, KING Manages 3 Employees. 
pToyee, CLARK Manages 1 Employees . 

ployee, BLAKE Manages Many Employees, Chance of decreasing his 
erformance, Recommend for Extra Allowances or 
Emoluments . 

Employee, FORD Manages 1 Employees. 
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Employee, JONES Manages 2 Employees. 
Employee, SCOTT Manages 1 Employees. 



PL/SQL procedure successfully completed. 
SQL> cl scr 
SQL> ROLLBACK; 

Rollback complete. 

SQL> cl scr 




SQL> DECLARE 

2 V_Empno Emp . Empno%TYPE := SGEmpno; 

3 V_Ename Emp . Ename%TYPE; 

V_Job Emp . Job%TYPE ; 

V_Sal Emp . Sal%TYPE; 

BEGIN 
SELECT 

8 Empno, Ename, Job, Sal 

9 INTO 

10 V_Empno, V_Ename, V_Job, V_Sal 

11 FROM Emp 

12 WHERE Empno = V_Empno 

13 DBMS_OUTPUT . PUT_LINE ( 

' I I V_Loc ) ; 

14 EXCEPTION 

15 WHEN NO DATA FOUND 







' | | V_Ename | | 



I I V_Job M', 





16 DBMS_OUTPUT . PUT__LI 
Database ' ) ; 

17 END; 

18 / 

Enter value for aempnoT 783 
DBMS_OUTPUT .RU'j^p| t NE ( ' The Employee 
' | | V_Loc ) ; ^ 



ry ! '| | V_Empno | | ' is Not Found in The 




' | | V_Ename | I ' , 'll V_Job II', 



ERROR at lii 
ORA- Q£5 line 13 , column 69: 

PLS-Q^i|Q?it+4-dentif ier ' V_LOC ' must be declared 
ORA-1 655t>: line 13, column 1: 

P^JidW' Statement ignored 

^4. t1 .<7Wrote file af iedt . buf 



1 DECLARE 
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2 V_Empno Emp . Empno%TYPE := SGEmpno; 

3 V_Ename Emp . Ename%TYPE; 

4 V_Job Emp . Job%TYPE ; 

5 V_Sal Emp . Sal%TYPE; 

6 BEGIN 

7 SELECT 

8 Empno, Ename, Job, Sal 

9 INTO 

10 V_Empno, V_Ename, V_Job, V_Sal 

11 FROM Emp 

12 WHERE Empno = V_Empno; 

13 DBMS_OUTPUT . PUT_LINE ( ' The Employee 
' I I V_Sal) ; 

14 EXCEPTION 

15 WHEN NO_DATA_FOUND THEN 

16 DBMS_OUTPUT.PUT_LINE ( 'Sorry! ' | | V_Empno || ' is' 
Database ' ) ; 

17* END; 

SQL> / 

Enter value for gempno : 7839 
The Employee : KING, PRESIDENT, 5000 

PL/SQL procedure successfully compl e 

SQL> / 

Enter value for gempno: 2234 
Sorry! 2234 is Not Found in ♦hdljPljtStbase 

+, J j +l ++ + ^ 

PL/SQL procedure successfua|y\OTipleted. 

SQL> ED 4^+k + J-C* 

Wrote file afiedt. 









' I I V_Ename | | 'X? 



I 




und in The 




= SGEmpno; 



1 DECLARE 

2 V_Empno — Ei 

3 V_Enaii 

4 V_Job 

5 V_Sal Em^ 

6 % EC 

7 

8 lEmpno, Ename, Job, Sal 

:'1(| p7_Empno, V_Ename, V_Job, V_Sal 
j+ u t^l V F ROM Emp 
g. i. r2 WHERE Empno = V_Empno; 

^ 1 ^# 13 DBMS_OUTPUT . PUT_LINE ( ' The Employee 
' I I V_Sal) ; 

14 EXCEPTION 



' | | V_Ename II', 'll V_Job | | 
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15 WHEN NO_DATA_FOUND THEN 

16 DBMS_OUTPUT.PUT_LINE ( 'Sorry! ' ! | V_Empno || ' 
Database ' ) ; 

17 RAISE_APPLICATION_ERROR (-20100, 'Database 
' | | SQLCODE | ! ' With Message As ' | | SQLERRM) ; 

18* END; 

SQL> / 

Enter value for gempno : 7839 

The Employee : KING, PRESIDENT, 5000 

PL/SQL procedure successfully completed. 

SQL> / 



is Not Found in The 




Enter value for gempno: 2234 
Sorry! 2234 is Not Found in The 
DECLARE 

ERROR at line 1: 

ORA-20100: Database Server Says 
found 

ORA-06512: at line 17 



SQL> cl scr 




no data 



SQL> 

2 

3 

4 

5 

6 
7 



10 

11 

12 

13 

14 

15 

16 




DECLARE 

V_Deptno Dept . Deptno%TYP: 
V_Loc Dept .Loc%TYPE z= 
E_DeptNot Found EXCE^^^N? 
BEGIN 

UPDATE Dept 
SET Loc = V_Lc 
WHERE Deptno = 4 ti^iT5feptno ; 

IF SQL%NOTFQUND |ffiN 
RAISE E D®®otFound; 

END IF; 

EXCEPT!® 1 ■* 

WHEN E_D^NotFound THEN 
«Bt'^%UTPUT . PUT_LINE ( ' Sorry ! 



Deptno; 
& GLo c ' ) ; 



Department Not Found'); 



cs 



value 

dSprry ! Department 



lue for gdeptno: 60 
for gloc: CARGO 
Not Found 



L/ SQL procedure successfully completed. 



SQL> ED 
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Wrote file afiedt.buf 



DECLARE 

V_Deptno Dept . Deptno%TYPE := &GDeptno; 
V_Loc Dept . Loc%TYPE := UPPER (' &GLoc ') ; 
E_DeptNot Found EXCEPTION; 

BEGIN 

UPDATE Dept 
SET Loc = V_Loc 
WHERE Deptno = V_Deptno; 

IF SQL%NOTFOUND THEN 
RAISE E_DeptNotFound; 

END IF; 

EXCEPTION 

WHEN E_DeptNot Found THEN 

DBMS_OUTPUT . PUT_LINE ( ' Sorry ! Department 
RAISE_APPLICATION_ERROR (-20110, 'Please 
Department Number' ) ; 

16* END; 

SQL> / 

Enter value for gdeptno: 70 
Enter value for gloc: CARGO 
Sorry! Department Not Found 
DECLARE 



ERROR at line 1: 

ORA-20110: Please Provide An 
ORA-06512: at line 15 



10 

11 

12 

13 

14 

15 



Not Fc 

Pro^iti^ 




Existing 



SQL> ED 
Wrote file 



af iedt , 



DECLARE 
V_Deptno 
V_Loc 
E_Dept 
BEG! 

« + PEft Dept 

= V_Loc 

CwH^te Deptno = V_Deptno; 





Department Number 



Deptno%TYPE := SGDeptno; 
TYPE := UPPER (' SGLoc ') ; 
EXCEPTION; 



^WsQL^ 



NOTFOUND THEN 



O lfl t rf pAISE_APPLICATION_ERROR (-2 0110, 
department Number ' ) ; 



'Please Provide An Existing 



END IF; 
12* END; 
SQL> / 

Enter value 



for gdeptno: 70 
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Enter value for gloc: COURIER 
DECLARE 
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